<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>204</cardCount>
<cardID>58028</cardID>
<listID>2087</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>------------------------------------------------------------------------- ---- Olivia 3.0 ---- by: Tom Gilleland ---- 3/92 ---- ---- • Message handlers used in this script: ---- ClosePicture,CopyAFile,CopyAFolder,CopyMarked,DecodeIt, ---- DisplayMarkedCards,DisplayTextFile,FileSumGoTo,GoNextSameWord, ---- Idle,MakeMenus,OpenCard,OpenStack,LaunchApplication,LaunchIt, ---- LaunchFileWithApp,PrintFileSummary,RemoveBalloon, ---- ShowAutoBalloon,ShowFileSum,SlideShow,SuspendStack, ---- TitlebarControl ---- ---- • Function handlers used in this script: ---- Be853Free ---- ---- • XCMDs used in this stack: ---- Barbutton,CopyFile,CopyFolder,Help ---- ---- • XFCNs used in this stack: ---- prettyTip ---- ---- • Fonts used in this stack: ---- Korina ---- ---- • Sounds used in this stack: ---- Click,Zoom,Wave1, Wave2,Wave3,OnScreen ---- -------------------------------------------------------------------------on openstackGlobal StartingUserLevel,TitleBarShowing,MarkedCount,FirstTime,PlaySoundput "yes" into PlaySoundput "yes" into FirstTimeput "no" into TitleBarShowingput the userlevel into StartingUserLevelset the userlevel to 5put 0 into MarkedCounthide message boxhide titlebarshow menubar--hide bg fld "AllFilesInSection"MakeMenusgo firstend openstackon closestackGlobal StartingUserLevelset the userlevel to StartingUserLevelshow titlebarshow menubarreset menubarend closestackOn SuspendStackcloseStackend SuspendStack------------------------------------------------------------------------- Custom Menus -------------------------------------------------------------------------On QuitItdomenu "Quit HyperCard"End QuitItOn MakeMenusGlobal TitleBarShowing, FileSummaryShowingif the optionkey is not down thenIf "File" is in the menus then delete menu "File"If "Edit" is in the menus then delete menu "Edit"If "Go" is in the menus then delete menu "Go"If "Tools" is in the menus then delete menu "Tools"If "Objects" is in the menus then delete menu "Objects"If "Font" is in the menus then delete menu "Font"If "Style" is in the menus then delete menu "Style"Create Menu "File"put "Quit" after menu "File"set the menumessage of menuitem "Quit" of menu "FIle" to QuitItset the cmdChar of menuitem "Quit" of menu "File" to "Q"end ifCreate Menu "• Display"if TitlebarShowing = "yes" thenPut "Hide Titlebar" after menu "• Display"Set the menumessage of menuitem "Hide Titlebar" of menu "• Display" to TitlebarControlelsePut "Show Titlebar" after menu "• Display"Set the menumessage of menuitem "Show Titlebar" of menu "• Display" to TitlebarControlend ifif the visible of bg fld "AllFilesInSection" = true thenPut "Hide File Summary" after menu "• Display"Set the menumessage of menuitem "Hide File Summary" of menu "• Display" to ShowFileSumelsePut "Show File Summary" after menu "• Display"Set the menumessage of menuitem "Show File Summary" of menu "• Display" to ShowFileSumend ifPut "--" after menu "• Display"Put "View Marked Files..." after menu "• Display"Set the menumessage of menuitem "View Marked Files..." of menu "• Display" to DisplayMarkedCardsput "Copy Marked Files..." after menu "• Display"set the menumessage of menuitem "Copy Marked Files..." of menu "• Display" to CopyMarkedput "Unmark All Files" after menu "• Display"set the menumessage of menuitem "Unmark All Files" of menu "• Display" to UnMarkAllCardsEnd MakeMenusOn TitlebarControlGlobal TitleBarShowingif TitlebarShowing = "yes" thenhide Titlebarput "no" into TitlebarShowingelseshow Titlebarput "yes" into TitlebarShowingend ifdelete menu "• Display"MakeMenusEnd TitlebarControl------------------------------------------------------------------------- Copying Various Files -------------------------------------------------------------------------On CopyAFileanswer "What type of file do you wish to copy?" with "8-bit PICT" or "24-bit TIF" or CancelIf the optionKey is down then -- Pig Latin --If it = "8-bit PICT" thenput line 1 of bg fld "PPath" into srcNamedelete the last char of srcNameend ifIf it = "24-bit TIF" thenput line 1 of bg fld "PPath" into srcNamedelete the last char of srcNamerepeat 26delete the first char of srcNameend repeatput "Exotica ROM 3.0:24-bit TIF" before srcNamerepeat 4delete the last char of srcNameend repeatput "TIF" after srcNameend ifIf it ≠ "Cancel" thenput empty into dstNameput srcName & " copy" into newNamerepeat with x = the number of chars in newName down to 1if char x of newName = ":" thenexit repeatend ifput char x of newName before dstNameend repeatput dstName into PLFIleNameput empty into dstNameput 0 into countput empty into FinalFileNamerepeat for number of words in PLFilenameadd 1 to countput "no" into donerepeat until done = "yes"put empty into FinalWordput word count of PLFileName into TempWordif the number of chars in TempWord = 1 thenput TempWord & "ay " after FinalWordput "yes" into doneelseput the first char of TempWord into TheChardelete the first char of TempWordput TempWord & TheChar & "ay " after Finalwordput "yes" into doneend ifput FinalWord after FinalFileNameend repeatend repeatput FinalFileName into newNamerepeat with x = the number of chars in newName down to 1if char x of newName = ":" thenexit repeatend ifput char x of newName before dstNameend repeatask File "Save as…" with dstNameIf it is empty thenexit CopyAFileend ifput it into dstNameset cursor to busyCopyFile srcName,dstNameend ifelse -- English --If it = "8-bit PICT" thenput line 1 of bg fld "PPath" into srcNamedelete the last char of srcNameend ifIf it = "24-bit TIF" thenput line 1 of bg fld "PPath" into srcNamedelete the last char of srcNamerepeat 26delete the first char of srcNameend repeatput "Exotica ROM 3.0:24-bit TIF" before srcNamerepeat 4delete the last char of srcNameend repeatput "TIF" after srcNameend ifIf it ≠ "Cancel" thenput empty into dstNameput srcName & " copy" into newNamerepeat with x = the number of chars in newName down to 1if char x of newName = ":" thenexit repeatend ifput char x of newName before dstNameend repeatask File "Save as…" with dstNameIf it is empty thenexit CopyAFileend ifput it into dstNameset cursor to busyCopyFile srcName,dstNameend ifend ifEnd CopyAFileOn CopyMarkedGlobal MarkedCount,FileMarkedForViewrepeat with i = 1 to MarkedCountput line i of FileMarkedForView into CardToCopygo CardToCopyCopyAFileend repeatEnd CopyMarkedOn CopyAFolderput first line of bg fld "Path" into SourceFolderput first word of bg fld "FileName" into FNameask File "Save as…" with FName & " Folder"If it is empty then exit to HyperCard else put it into destFolderRepeat with x = the number of chars in sourceFolder down to 1If char x of sourceFolder ≠ ":" then delete char x of sourceFolder else exit repeatend repeatPut "Copying " & Fname & " Folder" && "to --->" && destFolderCopyFolder sourceFolder,destFolderput the result into errorhide message boxEnd CopyAFolder------------------------------------------------------------------------- Marking Cards -------------------------------------------------------------------------On MarkCardGlobal FileMarkedForView,MarkedCountput the long Name of this card into tempIf temp is in FileMarkedForView thenrepeat with i = 1 to MarkedCountIf line i of FileMarkedForView = temp thendelete line i of FileMarkedForViewsubtract 1 from MarkedCountCheckIfAnyMarkedend ifEnd repeathide bg btn id 326elsePut temp & return after FileMarkedForViewadd 1 to MarkedCountshow bg btn id 326CheckIfAnyMarkedend ifEnd MarkCardOn DisplayMarkedCardsGlobal MarkedCount,FileMarkedForView,SoundTypeAnswer "Display the marked cards..." with "Quickly" or "Slowly" or "Cancel"If it = "Quickly" thenrepeat with i = 1 to MarkedCountput line i of FileMarkedForView into TheCardgo TheCardend repeatplay "Zoom" & SoundTypeEnd ifIf it = "Slowly" thenrepeat with i = 1 to MarkedCountput line i of FileMarkedForView into TheCardgo TheCardwait 2 secondsend repeatplay "Zoom" & SoundTypeEnd ifEnd DisplayMarkedCardsOn CheckIfAnyMarkedGlobal MarkedCount,FileMarkedForViewif MarkedCount = 0 thenset the enabled of menuitem "View Marked Files..." of menu "• Display" to falseset the enabled of menuitem "Copy Marked Files..." of menu "• Display" to falseset the enabled of menuitem "Unmark All Files" of menu "• Display" to falseelseset the enabled of menuitem "View Marked Files..." of menu "• Display" to Trueset the enabled of menuitem "Copy Marked Files..." of menu "• Display" to trueset the enabled of menuitem "Unmark All Files" of menu "• Display" to trueEnd ifPut the long name of this card into tempif temp is in FileMarkedForView thenShow bg btn id 326elsehide bg btn id 326end ifEnd CheckIfAnyMarkedOn UnMarkAllCardsGlobal MarkedCount,FileMarkedForViewPlay "Click"put 0 into MarkedCountput empty into FileMarkedForViewCheckIfAnyMarkedEnd UnMarkAllCards------------------------------------------------------------------------- File Summary Stuff -------------------------------------------------------------------------On ShowFileSumPlay "Zoom"If (The visible of fld AllFilesInSection) then -- Its therePlay "Click"Lock ScreenHide fld "AllFilesInSection"unlock screen with visual zoom closeelse -- It isn’tPlay "Click"Lock ScreenShow bg fld "AllFilesInSection"unlock screen with visual zoom Openend ifdelete menu "• Display"MakeMenusEnd ShowFileSumOn FileSumGoToPlay "Zoom"Lock ScreenIf Item 2 of the value of the ClickLine ≠ empty thenPlay "Click"Go to card id(Item 2 of the value of the ClickLine)Hide fld "AllFilesInSection"UnLock screen with Visual effect zoom outdelete menu "• Display"MakeMenuselseBeepend ifEnd FileSumGoToOn PrintFileSummaryPrint Fld "AllFilesInSection"End PrintFileSummary------------------------------------------------------------------------- Balloon Help Stuff -------------------------------------------------------------------------on ShowAutoBalloon helpMessageput Help("ShowBalloon", helpMessage, prettyTip()) into bg fld "helpResult"Be853Free helpMessage, prettyTip()end ShowAutoBalloonon Be853Free helpMessage, tiprepeat until "-853" is not in bg fld "helpResult"put Help("ShowBalloon", helpMessage, tip) into bg fld "helpResult"end repeatend Be853Freeon RemoveBalloonput Help("RemoveBalloon") into bg fld "helpResult"end RemoveBalloonfunction prettyTipput the rect of the target into targetRectput item 3 of targetRect & "," & item 4 of targetRect into tipsubtract 10 from item 1 of tipsubtract 10 from item 2 of tipreturn tipend prettyTip------------------------------------------------------------------------- Navigation -------------------------------------------------------------------------on GoNextSameWordif the selection is empty thenset the userlevel to 5set lockText of the target to falserepeat two timesclick at the clickLocend repeatput the selection into SelectedWordput the short name of this card into returnHereset the dontSearch of returnHere to truefind Whole SelectedWordset the dontSearch of returnHere to falseend ifset lockText of the target to trueSelect Emptyset the userlevel to 1set LockScreen to falseif the long name of this card = returnHere thenanswer "There are no other occurences of this word."Go returnHereend ifend GoNextSameWordOn SlideShowrepeat until the mouseclickshow bg btn "stopdisplay"put the id of this card into TheIDIf the id of this card ≠ "card id 4291" thenget rect of Background button "ScrollBar"BarButton -1,the number of cards in this bg,0,The number of this cardend ifwait 1 secondgo nextend repeatclick at 89,312hide bg btn "stopDisplay"End SlideShow------------------------------------------------------------------------- Program & File Launching -------------------------------------------------------------------------On LaunchItPlay "Click"put "ALB3,Control Panel Device,Picture File,Pagemaker Template,MacWrite Document,Excel Template," into Typesput "VideoWorks File,MacPaint File,Encapsulated Postscript,Hypercard Stack,Text file," after Typesput "Desk accessory,Font File,Application,System Extension" into after TypesPut fld decode into hereif field "DecodeType" is in types then LaunchFileWithAppelseanswer "The program that was used to create this file can not be found on any drive."end ifend LaunchItOn LaunchApplicationset cursor to busyVisual effect Zoom Openopen field "Path"If the result ≠ empty and the result ≠ "Cancel" then Error The resultEnd LaunchApplicationOn DisplayTextFileopen File field "Path"If the result ≠ empty and the result ≠ "Cancel" then Error The resultread from file field "path" for 32000put it into field "DisplayText"set the scroll of field "DisplayText" to 1show field "DisplayText"show background button "HideTextDisplay"show background button "PrintField"close file field "path"End DisplayTextFile------------------------------------------------------------------------- Lauchable Programs ---- DA,Excel,Fonts,HyperCard,Illustrator,MacPaint,MacWrite,-- PageMaker,Pictures (PICT),Textfile, Word-- ---- Unlaunchable, but listed ---- System Extention Inits, Cdevs-----------------------------------------------------------------------On LaunchFileWithAppGlobal bookmarkput bg fld "Type" into theTypeIf theType = "WDBN" thenopen fld "Path" with "Microsoft Word"If the result ≠ empty and the result ≠ "Cancel" then Error The resultend ifIf theType = "FSSD" thenopen fld "Path" with "SoundEdit"If the result ≠ empty and the result ≠ "Cancel" then Error The resultend ifget field "DecodeType"If it = "ALB3" thenOpen fld Path with "PageMaker"If the result ≠ empty and the result ≠ "Cancel" then Error The resultend ifif it = "Pagemaker Template" thenOpen fld Path with "PageMaker"If the result ≠ empty and the result ≠ "Cancel" then Error The resultend ifIf it = "Picture File" thenPicture fld PathIf the result ≠ empty and the result ≠ "Cancel" then Error The resultend ifif it = "MacWrite Document" thenopen field Path with "MacWrite"If the result ≠ empty and the result ≠ "Cancel" then Error the resultend ifif it = "System Extension" or it = "Control Panel Device" thenanswer "You’ll need to copy this file into your System Folder and restart your machine."end ifif it = "Encapsulated Postscript" thenopen field Path with "Adobe Illustrator"If the result ≠ empty and the result ≠ "Cancel" then Error the resultend ifif it = "Excel Template" thenopen field Path with ExcelIf the result ≠ empty and the result ≠ "Cancel" then Error the resultend ifif it = "MacPaint File" thenIf the optionKey = "Down" thenPicture field "Path"Exit To HyperCardend ifopen field "Path" with "MacPaint"If the result ≠ empty and the result ≠ "Cancel" then Error the resultend ifif it = "Hypercard Stack" thenPut The Long name of this card into bookmarkgo to stack field "Path"end ifif it = "Text file" then DisplayTextFileif it = "Desk Accessory" thenAnswer "Do you wish to copy the DA into your system or view it?" with "Cancel" or "Copy" or "View"If it = "Copy" thenopen field path with "DTP CD 2.0:Help Files:Font/DA Help:Font DA Mover 3.2-4.1:Font/DA Mover 3.8"If the result ≠ empty and the result ≠ "Cancel" then Error the resultend ifIf it = "View" thenopen field path with "DTP CD 2.0:Help Files:Font/DA Help:FontDA Sampler"If the result ≠ empty and the result ≠ "Cancel" then Error the resultend ifend ifif it = "Font File" thenopen field path with "DTP CD 2.0:Help Files:Font/DA Help:Font DA Mover 3.2-4.1:Font/DA Mover 3.8"If the result ≠ empty and the result ≠ "Cancel" then Error the resultend ifif it = "Application" then LaunchApplicationEnd LaunchFileWithApp------------------------------------------------------------------------- Interface Building Tools -------------------------------------------------------------------------on DecodeItif field Type is "FFIL" then put "Font File" into field DecodeTypeif field Type is "DFIL" then put "Desk Accessory" into field DecodeTypeif field Type is "SPTG" then put "SuperPaint File" into field DecodeTypeif field Type is "PNTG" then put "MacPaint File" into field DecodeTypeif field Type is "DRWG" then put "MacDraw File" into field DecodeTypeif field Type is "SCRN" then put "Startup Screen" into field DecodeTypeif field Type is "APPL" then put "Application" into field DecodeTypeif field Type is "STAK" then put "HyperCard Stack" into field DecodeTypeif field Type is "WORD" then put "MacWrite Document" into field DecodeTypeif field Type is "TEXT" then put "Text File" into field DecodeTypeif field Type is "VWSC" then put "VideoWorks File" into field DecodeTypeif field Type is "ZSYS" then put "System File" into field DecodeTypeif field Type is "FNDR" then put "System File" into field DecodeTypeif field Type is "MSBA" then put "Basic Program" into field DecodeTypeif field Type is "MSBB" then put "Basic Program" into field DecodeTypeif field Type is "MSBC" then put "Basic Program" into field DecodeTypeif field Type is "MSBD" then put "Basic Program" into field DecodeTypeif field Type is "MUSC" then put "MusicWorks File" into field DecodeTypeif field Type is "CWMF" then put "Concertware Music" into field DecodeTypeif field Type is "CWIF" then put "Concertware Instrument" into field DecodeTypeif field Type is "cdev" then put "Control Panel Device" into field DecodeTypeif field Type is "LWFN" then put "Laser Font" into field DecodeTypeif field Type is "XLBN" then put "Excel Template" into field DecodeTypeif field Type is "XLPG" then put "Excel Macro" into field DecodeTypeif field Type is "EPSF" then put "Encapsulated Postscript" into field DecodeTypeif field Type is "INIT" then put "System Extension" into field DecodeTypeif field Type is "PICT" then put "Picture File" into field DecodeTypeif field Type is "XLS " then put "Excel Spreadsheet" into field DecodeTypeif field Type is "FSSD" then put "Sound File" into field DecodeTypeif field Type is "WZSS" then put "Wingz File" into field DecodeTypeif field Type is "ALB3" then put "PageMaker File" into field DecodeTypeif field Type is "WDBN" then put "MicroSoft Word file" into field DecodeTypeif field DecodeType is empty then put field Type into field DecodeType-- add new program type as they are on the market!end DecodeIt------------------------------------------------------------------------- Barbutton stuff -------------------------------------------------------------------------On IdleIf the id of this bg = 2566 thenget rect of Background button "ScrollBar"BarButton -1,the number of cards in this bg,0,The number of this cardCheckIfAnyMarkedElsePass Idleend ifend Idle</script>
